home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / phigs / ptk.lha / ptk / fortran / source / demo / phinter.f < prev    next >
Encoding:
Text File  |  1992-06-18  |  908 b   |  32 lines
  1. C--------------------------------------------------------------------------- 
  2.  
  3. C Program name: Phinter utility program.
  4.  
  5. C Author: Gareth Williams
  6.  
  7. C Description: Runs the stand alone phinter utility program after
  8. C setting up some hashtables.
  9.  
  10. C Modification history : (Version), (Date), (Name), (Description).
  11.  
  12. C 1.0, 1st March 1991, G. Williams, First Version.
  13.  
  14. C----------------------------------------------------------------------------
  15.  
  16.       PROGRAM phinter
  17.  
  18.       call ptkf_inithashtables()
  19.       call ptkf_createhashtable('structureid', 1, 500)
  20.       call ptkf_createhashtable('label', 1, 100)
  21.       call ptkf_createhashtable('viewindex', 1, 50)
  22.       call ptkf_createhashtable('colourindex', 2, 256)
  23.       call ptkf_createhashtable('name', 1, 500)
  24.       call ptkf_callphinter()
  25.  
  26.       STOP
  27.       END
  28.  
  29. C--------------------------------------------------------------------------
  30.  
  31. C end of phinter.f
  32.